home *** CD-ROM | disk | FTP | other *** search
/ Buffalo Sabres 2001-2002 Promotional CD / Sabres.iso / pc / intro.dxr / 00038_Control QT.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  3.0 KB  |  116 lines
  1. property pSp, Mem, pSprChan, pEventType, pControlType
  2.  
  3. on getPropertyDescriptionList
  4.   d = [:]
  5.   addProp(d, #pEventType, [#default: "MouseClick", #format: #string, #range: ["MouseClick", "MouseOver", "Automatic"], #comment: "Choose Event Type"])
  6.   addProp(d, #pControlType, [#default: "Play", #format: #string, #range: ["Play", "Stop", "Rewind", "FastForward", "Reset", "Pause"], #comment: "Choose Control Type"])
  7.   addProp(d, #pSprChan, [#default: 1, #format: #integer, #comment: "Sprite Channel of Movie"])
  8.   return d
  9. end
  10.  
  11. on beginSprite me
  12.   pSp = me.spriteNum
  13.   Mem = the memberNum of sprite pSp
  14. end
  15.  
  16. on prepareFrame me
  17.   if pEventType = "Automatic" then
  18.     case pControlType of
  19.       "Play":
  20.         sprite(pSprChan).movieRate = 1
  21.       "Stop":
  22.         sprite(pSprChan).movieRate = 0
  23.         sprite(pSprChan).movieTime = 0
  24.       "Rewind":
  25.         sprite(pSprChan).movieRate = -2
  26.       "FastForward":
  27.         sprite(pSprChan).movieRate = 2
  28.       "Reset":
  29.         sprite(pSprChan).movieTime = 0
  30.       "Pause":
  31.         if sprite(pSprChan).movieRate = 1 then
  32.           sprite(pSprChan).movieRate = 0
  33.         else
  34.           sprite(pSprChan).movieRate = 1
  35.         end if
  36.     end case
  37.   end if
  38. end
  39.  
  40. on mouseWithin me
  41.   if pEventType = "MouseOver" then
  42.     case pControlType of
  43.       "Play":
  44.         sprite(pSprChan).movieRate = 1
  45.       "Stop":
  46.         sprite(pSprChan).movieRate = 0
  47.         sprite(pSprChan).movieTime = 0
  48.       "Rewind":
  49.         sprite(pSprChan).movieRate = -2
  50.       "FastForward":
  51.         sprite(pSprChan).movieRate = 2
  52.       "Reset":
  53.         sprite(pSprChan).movieTime = 0
  54.       "Pause":
  55.         if sprite(pSprChan).movieRate = 1 then
  56.           sprite(pSprChan).movieRate = 0
  57.         else
  58.           sprite(pSprChan).movieRate = 1
  59.         end if
  60.     end case
  61.   end if
  62. end
  63.  
  64. on mouseLeave me
  65.   if pEventType = "MouseOver" then
  66.     case pControlType of
  67.       "Play":
  68.         sprite(pSprChan).movieRate = 1
  69.       "Stop":
  70.         sprite(pSprChan).movieRate = 0
  71.         sprite(pSprChan).movieTime = 0
  72.       "Rewind":
  73.         sprite(pSprChan).movieRate = -2
  74.       "FastForward":
  75.         sprite(pSprChan).movieRate = 2
  76.       "Reset":
  77.         sprite(pSprChan).movieTime = 0
  78.       "Pause":
  79.         if sprite(pSprChan).movieRate = 1 then
  80.           sprite(pSprChan).movieRate = 0
  81.         else
  82.           sprite(pSprChan).movieRate = 1
  83.         end if
  84.     end case
  85.   end if
  86. end
  87.  
  88. on mouseUp me
  89.   if pEventType = "MouseClick" then
  90.     case pControlType of
  91.       "Play":
  92.         sprite(pSprChan).movieRate = 1
  93.       "Stop":
  94.         sprite(pSprChan).movieRate = 0
  95.         sprite(pSprChan).movieTime = 0
  96.       "Rewind":
  97.         sprite(pSprChan).movieRate = -2
  98.       "FastForward":
  99.         sprite(pSprChan).movieRate = 2
  100.       "Reset":
  101.         sprite(pSprChan).movieTime = 0
  102.       "Pause":
  103.         if sprite(pSprChan).movieRate = 1 then
  104.           sprite(pSprChan).movieRate = 0
  105.         else
  106.           sprite(pSprChan).movieRate = 1
  107.         end if
  108.     end case
  109.   end if
  110. end
  111.  
  112. on getBehaviorDescription
  113.   description = "Controls QT for Play,FF,RW, Reset, Stop and Pause"
  114.   return description
  115. end
  116.